home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 5-Fonts & Software / Applications / Aldus PageMaker 3.02 / Aldus Prep < prev    next >
Text File  |  1989-05-01  |  27KB  |  1,153 lines
  1. % 209    26            AldusVersion/AldRevision:  This record must be first!!
  2. % Copyright (C) 1987 Aldus Corporation. All rights reserved.
  3.  
  4. /AldusDict2 300 dict def    
  5. AldusDict2
  6. begin                                                    
  7. /AldusVersion         209     def        
  8. /AldusRev            26        def        
  9. systemdict /currentpacking known
  10. {/AD_OldPacking currentpacking def
  11. true setpacking
  12. } if
  13. /AD_PrevMatrix         matrix     def        
  14. /AD_SomethingOnPage    false    def        
  15. /AD_OutlineWidth    30        def        
  16. /AD_ShadOffset        0.06    def     
  17. /AD_OLShadOffset    0.06    def     
  18. /AD_OLSmearFact        0.03    def     
  19. /AD_BoldSmearFact    0.03    def     
  20. /AD_ObliqueAngle    -0.21    def     
  21. /AD_TrueSetscreen /setscreen load def 
  22. /AD_NestedMirror false def        
  23. /BEGJOB                                             
  24. {    /AD_Invert        exch def
  25. dup AD_NestedMirror xor /AD_NestedMirror exch def
  26. /AD_MirrorFlag    exch def
  27. /AD_WideFlag    exch def
  28. /paperwid        exch def
  29. /paperht         exch def
  30. /AD_Resolution    1440 def
  31. /AD_PointsToUCS    AD_Resolution 72 div def
  32. /AD_EvenRound 72 72 matrix defaultmatrix dtransform pop abs 750 gt def
  33. AD_PrevMatrix currentmatrix pop
  34. /AD_PrevScreen [currentscreen] def
  35. /AD_PrevTransfer currenttransfer def
  36. /AD_StdScreen true def
  37. /STD_SCREEN
  38. {
  39. AD_StdScreen not
  40. {
  41. AD_PrevScreen cvx exec setscreen
  42. /AD_PrevTransfer load settransfer
  43. /AD_StdScreen true assign
  44. }if
  45. } def
  46. true _SetCoordSys
  47. version (23.) anchorsearch 
  48. {
  49. pop pop
  50. /truesetgray /setgray load def
  51. /setgray
  52. {
  53. mark
  54. AD_Invert
  55. {.0 .0 .06 .1 .28 .48 .56 .68 .82 .9 .98 1.0 }
  56. {1.0 1.0 .98 .9 .82 .68 .56 .48 .28 .1 .06 .0 }
  57. ifelse
  58. counttomark dup 3 add -1 roll exch
  59. 2 sub mul dup floor cvi
  60. dup 3 1 roll sub
  61. exch dup 
  62. 3 add index exch 2 add index dup
  63. 4 1 roll
  64. sub mul add
  65. counttomark 1 add 1 roll 
  66. cleartomark
  67. truesetgray
  68. } def
  69. }
  70. { pop }
  71. ifelse
  72. /screenAdjust 1 0 dtransform exch atan def
  73. /mirrorScreen AD_NestedMirror {/neg load} {{}} ifelse def
  74. /setscreen {exch screenAdjust add mirrorScreen exch AD_TrueSetscreen} def
  75. } def            
  76. /_SetCoordSys
  77. {
  78. /AD_OldSys exch def
  79. AD_WideFlag
  80. {    AD_OldSys
  81. {
  82. 90 rotate 
  83. 1 AD_PointsToUCS div dup neg scale
  84. }
  85. {
  86. 1 AD_PointsToUCS div dup neg scale
  87. paperht paperwid neg translate
  88. 90 rotate
  89. }
  90. ifelse
  91. }
  92. { 1 AD_PointsToUCS div dup neg scale
  93. 0 paperht neg translate
  94. } 
  95. ifelse
  96. AD_MirrorFlag
  97. { paperwid 0 translate
  98. -1 1 scale
  99. } 
  100. if
  101. /AD_DeviceScale
  102. 1 1 transform pop 0 0 transform pop sub abs 
  103. def
  104. } bind def
  105. /SETRES                                             
  106. {
  107. /AD_Resolution    exch def
  108. /AD_PointsToUCS    AD_Resolution 72 div def
  109. AD_PrevMatrix setmatrix
  110. false _SetCoordSys
  111. } bind def            
  112. /BEGPAGE                                             
  113. {    /AD_SomethingOnPage    false def
  114. }     bind def            
  115. /ENDPAGE                                             
  116. {    AD_SomethingOnPage 
  117. { save
  118. showpage 
  119. restore 
  120. } if
  121. }     def 
  122. /ENDJOB                                             
  123. {    AD_PrevMatrix setmatrix
  124. }     bind def                                            
  125. /S_IMAGEMASK                                            
  126. {    /here save def
  127. /h exch def        /w exch def
  128. /dh exch def    /dw exch def
  129. /y0 exch def    /x0 exch def
  130. /sx w dw div def
  131. /sy h dh div def
  132. /imbuf w 7 add 8 idiv string def
  133. 0 setgray
  134. x0 y0 translate w h true [sx 0 0 sy 0 0]
  135. {currentfile imbuf readhexstring pop} imagemask
  136. here restore
  137. /AD_SomethingOnPage    true def
  138. }     bind def                                            
  139. /S_IMAGE                                            
  140. {    /here save def
  141. /bits exch def
  142. /h exch def        /w exch def
  143. /dh exch def    /dw exch def
  144. /y0 exch def    /x0 exch def
  145. /sx w dw div def
  146. /sy h dh div def
  147. /imbuf w bits mul 7 add 8 idiv string def
  148. x0 y0 translate w h bits [sx 0 0 sy 0 0]
  149. {currentfile imbuf readhexstring pop} image
  150. here restore
  151. /AD_SomethingOnPage    true def
  152. }     bind def                                            
  153. /S_PSCRIPT                                            
  154. {    /AD_SomethingOnPage    true def
  155. }     bind def                                            
  156. /S_TEXTSEGBEG                                            
  157. {    /here save def
  158. /TX_RunDrawn false def
  159. newpath
  160. }     bind def                                            
  161. /S_TEXTSEGEND                                            
  162. {    TX_RunDrawn
  163. { here restore
  164. /AD_SomethingOnPage true def }
  165. { here restore } ifelse
  166. }     bind def                                            
  167. /S_WORKING
  168. {
  169. /AD_WorkingMemory exch def
  170. } bind def
  171. /S_LOADFONT
  172. {
  173. AldusDict2 /AD_TopOfFonts known exch
  174. { { AD_TopOfFonts restore } if }
  175. { not { save /AD_TopOfFonts exch def } if    }
  176. ifelse
  177. } bind def
  178. /SURSTR
  179. {
  180. AD_SomethingOnPage SUsv restore
  181. } bind def
  182. /SUSAVE
  183. {
  184. AldusDict2 /AD_TopOfFonts known 
  185. vmstatus exch sub exch pop AD_WorkingMemory lt 
  186. { dup { AD_TopOfFonts restore } if } if
  187. not                    
  188. { save /AD_TopOfFonts exch def } if    
  189. save /SUsv exch def /AD_SomethingOnPage exch def
  190. } bind def
  191. /_ftName 66 string def
  192. /_AutoRecode
  193. {    
  194. /recode exch def
  195. _ftName cvs
  196. dup length 7 gt
  197. {    dup 0 7 getinterval (|______) eq
  198. {    dup length 7 exch 7 sub getinterval 
  199. recode { FTRECODE } { FTRENAME } ifelse
  200. }
  201. { pop }
  202. ifelse
  203. }
  204. { pop } ifelse
  205. } bind def
  206. /SHADOWFLAG        16#1  def            
  207. /OUTLINEFLAG    16#2  def             
  208. /BOLDSMEAR        16#4  def             
  209. /OUTLINESMEAR    16#8  def             
  210. /ReENCODED        16#10 def            
  211. /BOLDPSBUMP        16#20 def            
  212. /ITALICOBLIQUE    16#40 def            
  213. /SET            
  214. {    
  215. /AD_textcolor    exch def    
  216. /AD_fontbits    exch def    
  217. /AD_20EMS        exch def    
  218. 1 index FontDirectory exch known not 
  219. { 1 index ReENCODED AD_fontbits _iand _AutoRecode } if 
  220. BOLDPSBUMP AD_fontbits _iand
  221. {    1 add } if
  222. dup _ActivateFont
  223. ITALICOBLIQUE AD_fontbits _iand
  224. {     _ActivateObliqueFont 
  225. } if
  226. /AD_EmNotMatch AD_20EMS 20 div (M) _ADStringWidth pop sub abs 1 gt def
  227. }     bind def                                            
  228. /S_SETUPRUN /SET load def        
  229. /OUT                
  230. {    /here save def
  231. /runwidth        exch def
  232. /nspaces        exch def
  233. /nchars            exch def
  234. /textrun        exch def
  235. /letterspace    exch def    
  236. /wordspace        exch def
  237. /y1 exch def    /x1 exch def
  238. nchars 0 gt
  239. {    
  240. AD_textcolor setgray 
  241. /letterspace
  242. AD_EmNotMatch
  243. {    
  244. runwidth                    
  245. textrun _ADStringWidth pop 
  246. nchars dup 1 gt {1 sub} if
  247. letterspace mul add        
  248. nspaces wordspace mul add    
  249. sub                        
  250. nchars dup 1 gt {1 sub} if
  251. div                        
  252. }
  253. {    
  254. 0 } ifelse                     
  255. letterspace add def                
  256. SHADOWFLAG AD_fontbits _iand
  257. {    save
  258. OUTLINEFLAG AD_fontbits _iand
  259. {    _OLShadowOffset
  260. }
  261. {    _ShadowScreen
  262. AD_textcolor _ShadowColor
  263. _ShadowOffset
  264. } ifelse 
  265. OUTLINEFLAG AD_fontbits _iand
  266. OUTLINESMEAR AD_fontbits _iand not and 
  267. {    _ActivateSolidFont
  268. } if 
  269. _ShowRun
  270. BOLDSMEAR AD_fontbits _iand
  271. {    _BoldSmearOffset _ShowRun
  272. } if 
  273. restore
  274. } if 
  275. OUTLINEFLAG AD_fontbits _iand 
  276. OUTLINESMEAR AD_fontbits _iand and
  277. {    _OLSmearRun
  278. }
  279. {    OUTLINEFLAG AD_fontbits _iand
  280. {    save
  281. _ActivateSolidFont 
  282. 1 AD_textcolor sub setgray
  283. _ShowRun
  284. restore
  285. } if 
  286. _ShowRun
  287. BOLDSMEAR AD_fontbits _iand
  288. {    _BoldSmearOffset _ShowRun
  289. } if 
  290. } ifelse 
  291. } if 
  292. here restore
  293. /AD_SomethingOnPage true def
  294. }     bind def                                            
  295. /S_OUTPUTRUN /OUT load def        
  296. /_ADStringWidth                                        
  297. {
  298. gsave closepath clip stringwidth grestore    
  299. }     bind def
  300. /_OLSmearRun                                        
  301. {    
  302. gsave _OLSmearOffset translate _ShowRun grestore            
  303. gsave _OLSmearOffset exch neg exch translate _ShowRun grestore            
  304. gsave _OLSmearOffset exch translate _ShowRun grestore                                         
  305. gsave _OLSmearOffset exch neg translate _ShowRun grestore            
  306. gsave 1.0 AD_textcolor sub setgray _ShowRun grestore
  307. }     bind def
  308. /_ShowRun                                        
  309. {    
  310. x1 y1 moveto 
  311. wordspace 0 8#040 letterspace 0 textrun awidthshow
  312. }     bind def
  313. /S_UNDERLINE                                        
  314. {    /here save def
  315. /color            exch def
  316. /pointsize        exch def
  317. /width            exch def
  318. /deltay            exch def
  319. /baseline        exch def
  320. /rightx            exch def
  321. /leftx            exch def
  322. currentfont /FontInfo known
  323. {    
  324. currentfont /FontInfo get
  325. /UnderlinePosition known
  326. {    /deltay 
  327. currentfont /FontInfo get 
  328. /UnderlinePosition get 
  329. currentfont /FontMatrix get 3 get mul 
  330. pointsize AD_fontscale AD_PointsToUCS 
  331. div div mul def
  332. } if 
  333. currentfont /FontInfo get
  334. /UnderlineThickness known
  335. {    /width
  336. currentfont /FontInfo get
  337. /UnderlineThickness get 
  338. currentfont /FontMatrix get 3 get abs mul 
  339. pointsize AD_fontscale AD_PointsToUCS 
  340. div div mul def
  341. } if 
  342. } if 
  343. /underliney 
  344. 0 baseline deltay add transform 
  345. round exch round exch itransform exch pop def
  346. color setgray 
  347. width setlinewidth
  348. SHADOWFLAG AD_fontbits _iand
  349. {    save
  350. OUTLINEFLAG AD_fontbits _iand 
  351. {    _OLShadowOffset
  352. }
  353. {    _ShadowScreen
  354. color _ShadowColor
  355. _ShadowOffset
  356. } ifelse 
  357. leftx underliney rightx underliney _ShowUnderline                                 
  358. restore
  359. } if 
  360. leftx underliney rightx underliney _ShowUnderline
  361. OUTLINEFLAG AD_fontbits _iand
  362. OUTLINESMEAR AD_fontbits _iand not and 
  363. {    
  364. save
  365. 1 color sub setgray
  366. /AD_OutlineWidth
  367. AD_OutlineWidth 1000 div AD_fontscale mul def
  368. width 3 AD_OutlineWidth mul ge
  369. { width 2 AD_OutlineWidth mul sub }
  370. { width 3 div } ifelse
  371. setlinewidth
  372. leftx AD_OutlineWidth add underliney
  373. rightx AD_OutlineWidth sub underliney _ShowUnderline
  374. restore
  375. } if 
  376. here restore
  377. /AD_SomethingOnPage true def
  378. }     bind def
  379. /_ShowUnderline                                        
  380. {
  381. newpath moveto lineto stroke    
  382. }     bind def
  383. /S_STRIKETHRU                                            
  384. {    /here save def
  385. /color            exch def
  386. /y                exch def
  387. /rightx            exch def
  388. /leftx            exch def
  389. /y    0 y transform 
  390. round exch round exch itransform exch pop def
  391. color setgray 
  392. _StrikeThruWidth setlinewidth
  393. newpath
  394. leftx  y moveto
  395. rightx y lineto stroke
  396. here restore
  397. /AD_SomethingOnPage true def
  398. }     bind def                                            
  399. /DV_DRAW_TEXT                                            
  400. {    /here save def
  401. /text    exch def
  402. /y         exch def    
  403. /x         exch def
  404. Black setgray
  405. (Helvetica-Bold) FTRECODE
  406. /|______Helvetica-Bold 9 dup _ActivateFont 
  407. x y moveto
  408. text show                    
  409. here restore
  410. /AD_SomethingOnPage    true def
  411. }     bind def                                            
  412. /DV_DRAW_BOX                                            
  413. {    /here save def
  414. /draftflag exch def
  415. /shadowflag exch def
  416. /y2 exch def    /x2 exch def
  417. /y1 exch def    /x1 exch def
  418. AD_PointsToUCS 2 div setlinewidth
  419. newpath
  420. x1 y1 moveto
  421. x1 y2 lineto
  422. x2 y2 lineto
  423. x2 y1 lineto closepath 
  424. shadowflag
  425. { gsave STD_SCREEN 0.5 setgray fill grestore}
  426. { gsave
  427. 1.0 setgray fill
  428. grestore 
  429. 0.0 setgray stroke } ifelse
  430. draftflag
  431. { x1 y1 moveto
  432. x2 y2 lineto stroke
  433. x2 y1 moveto
  434. x1 y2 lineto stroke } if
  435. here restore
  436. /AD_SomethingOnPage    true def
  437. }     bind def
  438. /DV_DRAW_LINE                                            
  439. {    /here save def
  440. /lw exch def
  441. /y2 exch def    /x2 exch def
  442. /y1 exch def    /x1 exch def
  443. x1 y1 transform 
  444. round exch round exch itransform /y1 exch def /x1 exch def
  445. x2 y2 transform 
  446. round exch round exch itransform /y2 exch def /x2 exch def
  447. 0 lw transform 
  448. round exch round exch itransform /lw exch def pop
  449. lw setlinewidth
  450. Black setgray
  451. newpath
  452. x1 y1 moveto
  453. x2 y2 lineto stroke
  454. here restore
  455. /AD_SomethingOnPage    true def
  456. }     bind def
  457. /DV_DRAW_CIRCLE                                            
  458. {    /here save def
  459. /lw exch def
  460. /r    exch def
  461. /y    exch def        /x exch def
  462. x y transform 
  463. round exch round exch itransform /y exch def /x exch def
  464. 0 r transform 
  465. round exch round exch itransform /r exch def pop
  466. 0 lw transform 
  467. round exch round exch itransform /lw exch def pop
  468. lw setlinewidth
  469. Black setgray
  470. newpath
  471. x y r 0 360 arc stroke
  472. here restore
  473. /AD_SomethingOnPage    true def
  474. }     bind def                                            
  475. /_ActivateFont                                        
  476. {    
  477. /AD_fontscale     exch AD_PointsToUCS mul def
  478. /AD_fontscaleX    exch AD_PointsToUCS mul def
  479. /AD_fontname     exch def
  480. AD_fontname findfont
  481. [ AD_fontscaleX 0 0 AD_fontscale neg 0 0 ] makefont
  482. setfont    
  483. }     bind def
  484. /_ActivateObliqueFont                                        
  485. {    
  486. AD_fontname findfont
  487. [ AD_fontscaleX 0 0 AD_fontscale neg 0 0 ] 
  488. [ 1 0 
  489. AD_ObliqueAngle 
  490. 1 0 0 ] matrix concatmatrix makefont setfont    
  491. }     bind def
  492. /_ActivateSolidFont                                        
  493. {    
  494. AD_solidfont 
  495. AD_fontscaleX AD_PointsToUCS div 
  496. AD_fontscale AD_PointsToUCS div _ActivateFont
  497. }     bind def
  498. /_ShadowOffset                                        
  499. {    
  500. AD_ShadOffset AD_fontscaleX mul AD_ShadOffset AD_fontscale mul translate    
  501. }     bind def
  502. /_OLShadowOffset                                        
  503. {    
  504. AD_OLShadOffset AD_fontscaleX mul AD_OLShadOffset AD_fontscale mul translate    
  505. }     bind def
  506. /_ShadowScreen                                        
  507. {    
  508. 100 AD_PrevScreen 1 get AD_PrevScreen 2 get setscreen
  509. }     bind def    
  510. /_ShadowColor                                        
  511. {    
  512. 0.6 mul 0.8 exch sub setgray
  513. }     bind def
  514. /_OLSmearOffset                                        
  515. {    
  516. AD_OLSmearFact AD_fontscaleX mul AD_OLSmearFact AD_fontscale mul
  517. }     bind def
  518. /_BoldSmearOffset                                        
  519. {    
  520. AD_BoldSmearFact AD_fontscaleX mul AD_BoldSmearFact AD_fontscale mul translate
  521. }     bind def
  522. /_StrikeThruWidth                                        
  523. {    
  524. AD_fontscale 16 div
  525. }     bind def
  526. /_iand                                        
  527. {    and 0 ne       
  528. }     bind def
  529. /bdef { bind def } bind def
  530. /FTRENAME {
  531. dup (|______) exch ftMakeName cvn /NewName local
  532. FontDirectory NewName known
  533. {pop}
  534. {cvn findfont dup
  535. maxlength dict false copyDict
  536. dup /FontName known
  537. {dup /FontName NewName put} if
  538. NewName exch definefont pop
  539. } ifelse
  540. } bdef
  541. /FTRECODE {
  542. dup (|______) exch ftMakeName cvn /NewName local
  543. FontDirectory NewName known
  544. {pop}
  545. {cvn findfont dup
  546. maxlength dict false copyDict
  547. dup /FontName known
  548. {dup /FontName NewName put} if
  549. dup /Encoding MacEncoding put
  550. NewName exch definefont pop
  551. } ifelse
  552. } bdef
  553. /AD_encode_vector_size    256 def
  554. /AD_encode_vector    null    def
  555. /AD_doing_recoding false def
  556. /BEG_RECODE
  557. {
  558. dup (|______) exch ftMakeName cvn /NewName local
  559. FontDirectory NewName known
  560. {
  561. pop
  562. /AD_doing_recoding false def
  563. /AD_encode_vector null def
  564. }
  565. {cvn findfont dup
  566. maxlength dict false copyDict
  567. dup /FontName known
  568. {dup /FontName NewName put} if
  569. /AD_encode_vector AD_encode_vector_size array def
  570. dup begin Encoding AD_encode_vector copy pop end
  571. dup /Encoding AD_encode_vector put
  572. NewName exch definefont pop
  573. /AD_doing_recoding true def
  574. AD_encode_vector    
  575. dup
  576. } ifelse
  577. } bdef
  578. /ENCODE_CHAR
  579. {
  580. AD_doing_recoding
  581. {
  582. put
  583. dup
  584. }
  585. {
  586. pop
  587. pop
  588. } ifelse
  589. } bdef
  590. /END_RECODE
  591. {
  592. AD_doing_recoding
  593. {
  594. pop
  595. pop
  596. } if
  597. /AD_doing_recoding false def
  598. /AD_encode_vector null def
  599. } bdef
  600. /FTOUTLINE {
  601. ReENCODED FTOLINE
  602. } bdef
  603. /FTOLINE {
  604. /AD_fontbits exch def
  605. cvn /OlineName local
  606. dup /AD_solidfont exch def
  607. AD_solidfont FontDirectory exch known not 
  608. { AD_solidfont ReENCODED AD_fontbits _iand _AutoRecode } if 
  609. FontDirectory OlineName known
  610. {pop}
  611. {cvn findfont dup
  612. maxlength 2 add dict true copyDict
  613. dup /FontName known
  614. {dup /FontName OlineName put} if
  615. dup /PaintType 2 put
  616. dup /StrokeWidth AD_OutlineWidth put
  617. OlineName exch definefont pop
  618. } ifelse
  619. } bdef
  620. /AD_nameString1 66 string def            
  621. /ftMakeName {
  622. 1 index length /PrefixLen local
  623. dup length PrefixLen add AD_nameString1 exch 0 exch getinterval
  624. dup PrefixLen 4 -1 roll putinterval
  625. dup 0 4 -1 roll putinterval
  626. } bdef
  627. /copyDict {
  628. /NoUnique local
  629. /NewFont local
  630. {exch dup /FID ne
  631. NoUnique
  632. {1 index /UniqueID ne and} if
  633. {exch NewFont 3 1 roll put}
  634. {pop pop}  ifelse
  635. } forall
  636. NewFont
  637. } bdef
  638. /MacEncoding 256 array def
  639. MacEncoding 0
  640. /Times-Roman findfont /Encoding get
  641. 0 128 getinterval
  642. putinterval
  643. MacEncoding 16#27 /quotesingle put
  644. MacEncoding 16#60 /grave put
  645. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  646. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  647. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  648. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  649. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  650. /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  651. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  652. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  653. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  654. /guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe
  655. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  656. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  657. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand
  658. /Acircumflex /Ecircumflex /Aacute
  659. /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  660. /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
  661. /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  662. MacEncoding 128 128 getinterval astore pop
  663. /getAnInt{2 getinterval dup 0 get 16#100 mul exch 1 get add cvi}def
  664. /CharBitStr 30 string def
  665. /BuildCharDict 16 dict def
  666. /AFONT
  667. {
  668. gsave
  669. /FName local
  670. /BMFSize local
  671. 1 add /LastChar local
  672. /FirstChar local
  673. /DefChar LastChar FirstChar sub 2 mul def
  674. 20 dict dup 
  675. begin 
  676. 10 1 roll
  677. /LocTableLen local
  678. /OWTableLen local
  679. /BMRowLen local
  680. /PixelHeight local
  681. /FontWidth local
  682. /MaxWidth local
  683. /MaxKern local
  684. /Descent local
  685. /Ascent local
  686. /Bits BMRowLen PixelHeight mul string currentfile exch readhexstring pop def
  687. /LocTable LocTableLen string currentfile exch readhexstring pop def
  688. /OWTable OWTableLen string currentfile exch readhexstring pop def
  689. /FontType 3 def
  690. /FontMatrix matrix def
  691. /FontBBox[MaxKern Descent neg MaxWidth MaxKern add Ascent]def
  692. /Encoding 256 array def
  693. Encoding 0 MacEncoding 0 256 getinterval putinterval
  694. /Mummble 257 array def
  695. 0 1 256{Mummble exch DefChar put}for
  696. FirstChar 1 LastChar{Mummble exch dup FirstChar sub 2 mul put}for
  697. /BuildChar
  698. {
  699. BuildCharDict 
  700. begin
  701. /1Char local
  702. /FDict local
  703. FDict /Mummble get 1Char get /2Char local
  704. FDict /OWTable get 2Char getAnInt 16#FFFF eq
  705. {/2Char DefChar assign}if
  706. FDict /LocTable get 2Char getAnInt
  707. /BitLoc local
  708. FDict /LocTable get 2Char 2 add getAnInt
  709. BitLoc sub
  710. /BitWidth local
  711. BitLoc 8 mod /ShiftVal local
  712. 16#FF 8 ShiftVal sub
  713. dup neg /RemShift local
  714. bitshift 16#FF and /BMask local
  715. 16#FF 8 BitLoc BitWidth add 8 mod
  716. sub dup 8 ge{pop 0}if
  717. BitWidth 0 eq{pop 8}if
  718. bitshift /AMask local
  719. BitWidth ShiftVal add 7 add 8 idiv
  720. dup 0 eq{pop 1}if
  721. /ByteWidth local
  722. BitLoc 8 idiv
  723. /WhichRow local
  724. FDict /OWTable get 2Char get cvi /Offset local
  725. FDict /OWTable get 2Char 1 add get cvi /Charwidth local
  726. Charwidth 0 BMFSize divPoint
  727. FDict /MaxKern get FDict /Descent get neg BMFSize divPoint
  728. BitWidth Offset add FDict /MaxKern get add FDict /Ascent get BMFSize divPoint
  729. setcachedevice
  730. gsave
  731. ByteWidth 8 mul
  732. FDict /PixelHeight get
  733. true
  734. [FDict /PixelHeight get FDict /Descent get sub 1 add
  735. 0
  736. 0
  737. FDict /PixelHeight get FDict /Descent get sub 1 add neg
  738. Offset neg 0.5 add
  739. FDict /PixelHeight get FDict /Descent get sub 0.5 add]
  740. { 
  741. FDict /Bits get WhichRow
  742. ByteWidth getinterval
  743. CharBitStr copy /ThisRow local
  744. 16#100
  745. ByteWidth 1 sub 1 neg 0
  746. {    /iV local
  747. ThisRow iV get
  748. 1 index 16#100 eq{AMask and}if
  749. dup BMask and RemShift bitshift
  750. 3 1 roll ShiftVal bitshift
  751. add 16#FF and
  752. cvi ThisRow iV 3 -1 roll put
  753. }for
  754. pop ThisRow
  755. /WhichRow WhichRow FDict /BMRowLen get add assign
  756. } imagemask
  757. grestore
  758. end 
  759. }def 
  760. end
  761. FontDirectory FName cvn known
  762. {pop}
  763. {FName cvn exch definefont pop} ifelse
  764. grestore
  765. }def 
  766. /const /def load def
  767. /var /def load def
  768. /local[/exch load /def load]cvx def
  769. /assign /def load def
  770. /incr{dup cvx exec 1 add assign}bdef
  771. /postIncr{dup cvx exec exch incr}bdef
  772. /SpaceChar 16#20 const
  773. /cvPA{2 array astore cvx}bdef
  774. /point{cvPA def}bdef
  775. /locPoint{3 1 roll point}bdef
  776. /pointXpoint{3 -1 roll mul 3 1 roll mul exch}bdef
  777. /pointDpoint{3 -1 roll exch div 3 1 roll div exch}bdef
  778. /setPoint{load astore pop}bdef
  779. /dupPoint{2 copy}bdef
  780. /addPoint{exch 4 -1 roll add 3 1 roll add}bdef
  781. /subPoint{exch 3 1 roll sub 3 1 roll sub exch}bdef
  782. /mulPoint{dup pointXpoint}bdef
  783. /divPoint{dup pointDpoint}bdef
  784. /exchPoint{4 2 roll}bdef
  785. /overPoint{3 index 3 index}bdef
  786. /anyStatD systemdict /statusdict known const
  787. /thisProduct anyStatD
  788. {statusdict /product known{statusdict /product get}{()}ifelse}
  789. {()}ifelse const
  790. /PerCentChg 1.0 -1.0 point
  791. /boxPath{/y2 local /x2 local /y1 local /x1 local
  792. x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto
  793. closepath}bdef
  794. /dump{4{pop}repeat}bdef
  795. /rBoxPath{/r local /y2 local /x2 local
  796. /y1 local /x1 local
  797. x1 r add y1 moveto x2 y1 x2 y2 r arcto dump
  798. x2 y2 x1 y2 r arcto dump x1 y2 x1 y1 r arcto dump
  799. x1 y1 x2 y1 r arcto dump closepath}bdef
  800. /SaveMatrix matrix var
  801. /ButtCap   0 const
  802. /SquareCap 2 const
  803. /MiterJoin 0 const
  804. /BevelJoin 2 const
  805. /Black 0 const
  806. /White 1 const
  807. /Wide  0 const
  808. /Narrow 1 const
  809. /PictPostScript false var
  810. /isHairline false var
  811. /PBEGIN{
  812. dup not {save /PSave exch def} if
  813. /isLBO exch def
  814. /PBotRight locPoint
  815. /PTopLeft locPoint
  816. isLBO not {newpath PTopLeft PBotRight boxPath clip} if newpath
  817. isLBO {ButtCap}{SquareCap} ifelse setlinecap
  818. MiterJoin setlinejoin
  819. 3 setmiterlimit
  820. AD_PointsToUCS setlinewidth
  821. /deviceRound
  822. {
  823. dup
  824. AD_DeviceScale mul round AD_DeviceScale div
  825. dup 0 eq { pop } { exch pop } ifelse 
  826. } def
  827. /HairWidth 
  828. AD_PointsToUCS 4 div 
  829. AD_DeviceScale mul deviceRound dup 1.5 lt
  830. { pop 0 } if
  831. const
  832. Black setgray
  833. /LineScale 1 var
  834. /LineWidth  AD_PointsToUCS var
  835. /LineHeight AD_PointsToUCS var
  836. /DoingWedge false var
  837. /DoingArc   false var
  838. AldusDict2 /PatternShade known not
  839. {
  840. /psb {} bdef                
  841. /pse {} bdef
  842. /PatternShade Black var
  843. /DeclaredPattern <00> var
  844. /PCurPat         <01> var 
  845. } if
  846. }bdef
  847. /PEND{
  848. newpath
  849. isLBO not {PSave restore} if
  850. /AD_SomethingOnPage    true def
  851. }bdef
  852. /SetPattern {
  853. dup /PatternShade exch def setgray
  854. } bdef
  855. /bitison{
  856. /ybit local /xbit local
  857. PCurPat ybit PatWidth mul
  858. xbit 8 idiv add get
  859. 1 7 xbit 8 mod AD_NestedMirror {exch pop}{sub} ifelse bitshift
  860. and 0 ne}bdef
  861. /PSHADE{
  862. STD_SCREEN
  863. 100 div dup /PatternShade exch def setgray
  864. <01> /PCurPat local 
  865. } def
  866. /BK { Black setgray } bdef            
  867. /WT { White setgray } bdef            
  868. /PBLACK /BK load def                    
  869. /PWHITE /WT load def                    
  870. /PUSETHISPATTERN {
  871. dup PCurPat eq {pop}{ PPATTERN } ifelse
  872. PatternShade setgray
  873. /VerifyUsedPattern false def
  874. } bdef
  875. /PUSEPATTERN {
  876. VerifyUsedPattern
  877. {DeclaredPattern PCurPat ne {DeclaredPattern PPATTERN} if
  878. } if
  879. PatternShade setgray
  880. /VerifyUsedPattern false def
  881. } bdef
  882. /PDECLAREPATTERN {
  883. /DeclaredPattern exch def
  884. /VerifyUsedPattern true def
  885. } bdef
  886. /PatWidth 1 const
  887. /PatSide 8 const
  888. /PFreq 300 32 div const
  889. /PPATTERN{/PCurPat local
  890. /VerifyUsedPattern false def
  891. 0 /Onbits local 0 /Offbits local
  892. AD_Invert {{1 exch sub} settransfer} {{} settransfer} ifelse 
  893. PFreq PerCentChg pop dup 0.96 eq
  894. {pop}{div}ifelse 
  895. 0 
  896. {
  897. 1 1 addPoint 2 divPoint PatSide mulPoint
  898. cvi exch cvi exch bitison AD_Invert xor
  899. {/Onbits incr 1}
  900. {/Offbits incr 0}ifelse
  901. }
  902. setscreen
  903. Offbits dup Onbits add div AD_Invert {1 exch sub} if SetPattern
  904. /AD_StdScreen false assign}def
  905. /vertLines{pop dup mul -2 mul 1 add}bdef
  906. /sPat
  907. {            
  908. AD_Invert {{1 exch sub} settransfer} {{} settransfer} ifelse 
  909. setscreen setgray
  910. }def
  911. /PALDUSSHADE
  912. {
  913. <11> /PCurPat local
  914. /AD_StdScreen false assign
  915. Wide eq
  916. { 0.774 20 45 {vertLines} sPat }
  917. { 0.643 30 45 {vertLines} sPat }
  918. ifelse
  919. } bdef
  920. /PHAIRWIDTH
  921. {
  922. HairWidth setlinewidth /isHairline true def
  923. } bdef
  924. /LW {                
  925. LineScale mul deviceRound /LineHeight exch def
  926. LineScale mul deviceRound dup /LineWidth exch def
  927. setlinewidth
  928. /isHairline false def
  929. }bdef
  930. /PLNWIDTH /LW load def        
  931. /PLNSCALE{div /LineScale exch def} bdef
  932. /roundCoord
  933. {
  934. 0.5 add round 0.5 sub
  935. } bdef
  936. /roundPoint
  937. {
  938. transform
  939. AD_EvenRound
  940. { 2 div round 2 mul exch 2 div round 2 mul exch }
  941. { round exch round exch }
  942. ifelse
  943. itransform
  944. } bdef
  945. /adjWidth {
  946. currentlinewidth dup
  947. 1 AD_DeviceScale div gt { deviceRound 2 div } { pop .5 AD_DeviceScale div } ifelse
  948. } bdef
  949. /pULAdj{ roundPoint adjWidth dup addPoint }bdef
  950. /pLRAdj{ roundPoint adjWidth dup subPoint }bdef
  951. /PLINETO
  952. {
  953. PictPostScript 
  954. { moveto lineto }
  955. { 
  956. /y2 exch def /x2 exch def /y1 exch def /x1 exch def
  957. currentlinecap ButtCap setlinecap
  958. newpath
  959. x1 x2 eq y1 y2 eq and
  960. {
  961. LineWidth 1 le LineHeight 1 le and
  962. { x1 y1 moveto } 
  963. { x1 y1 
  964. x1 LineWidth add y1 LineHeight add
  965. boxPath fill}
  966. ifelse
  967. }
  968. { y1 y2 eq             
  969. { 
  970. LineWidth x1 x2 lt 
  971. { x2 add /x2 exch def }
  972. { x1 add /x1 exch def }
  973. ifelse
  974. LineHeight setlinewidth 
  975. x1 y1 LineHeight 2 div add roundPoint moveto
  976. x2 y2 LineHeight 2 div add roundPoint lineto
  977. mayStroke
  978. }
  979. { x1 x2 eq             
  980. { 
  981. LineHeight y1 y2 lt 
  982. { y2 add /y2 exch def }
  983. { y1 add /y1 exch def }
  984. ifelse
  985. x1 LineWidth 2 div add y1 roundPoint moveto
  986. x2 LineWidth 2 div add y2 roundPoint lineto
  987. mayStroke
  988. }
  989. {                
  990. x1 y1 pULAdj moveto x2 y2 pULAdj lineto mayStroke
  991. }
  992. ifelse 
  993. }    
  994. ifelse
  995. }
  996. ifelse
  997. setlinecap            
  998. }
  999. ifelse
  1000. }bdef
  1001. /HairRect
  1002. {
  1003. save /here exch def
  1004. /y2 exch def /x2 exch def 
  1005. /y1 exch def /x1 exch def
  1006. PHAIRWIDTH newpath
  1007. x1 x2 sub abs y1 y2 sub abs lt
  1008. { x1 x2 add 2 div dup y1 roundPoint moveto y2 roundPoint lineto stroke}
  1009. { y1 y2 add 2 div dup x1 exch roundPoint moveto x2 exch roundPoint lineto stroke}
  1010. ifelse
  1011. here restore
  1012. } bdef 
  1013. /PHAIRLINE
  1014. {
  1015. count 4 gt
  1016. { 
  1017. newpath PHAIRWIDTH
  1018. addPoint 2 divPoint roundPoint moveto 
  1019. addPoint 2 divPoint roundPoint lineto pop pop
  1020. stroke
  1021. }
  1022. { HairRect }
  1023. ifelse
  1024. } bdef
  1025. /PHANGLINE
  1026. {
  1027. roundPoint /yb exch def /xr exch def 
  1028. roundPoint /yt exch def /xl exch def 
  1029. deviceRound /delta exch def 
  1030. { {yt delta sub /yt exch def} {yb delta add /yb exch def} ifelse } 
  1031. { {xl delta sub /xl exch def} {xr delta add /xr exch def} ifelse } 
  1032. ifelse
  1033. newpath 
  1034. 1 AD_DeviceScale div 2 div dup dupPoint 
  1035. xl yt addPoint exchPoint
  1036. xr yb exchPoint subPoint boxPath fill
  1037. } bdef
  1038. /PRECT{newpath pLRAdj exchPoint pULAdj exchPoint boxPath}bdef
  1039. /PRRECT { pLRAdj /Botts locPoint pULAdj /Tops locPoint 
  1040. currentlinewidth dup subPoint /Diams locPoint 
  1041. newpath SaveMatrix currentmatrix pop
  1042. Botts Tops subPoint /Sides locPoint
  1043. Sides pop abs Diams pop ge{Diams}{Sides}ifelse pop
  1044. Sides exch pop abs Diams exch pop ge{Diams}{Sides}ifelse exch pop 
  1045. /Diams locPoint
  1046. Diams 2 div /YRad local
  1047. 0 gt{Diams 
  1048. div}{1}ifelse 1 /PRRscale locPoint
  1049. Tops translate PRRscale scale 0 0 Sides PRRscale pointDpoint
  1050. Diams 0 gt exch 0 gt and{YRad rBoxPath}{boxPath}ifelse
  1051. SaveMatrix setmatrix}bdef
  1052. /POVAL{newpath SaveMatrix currentmatrix pop
  1053. 0 359 false pArc closepath
  1054. SaveMatrix setmatrix}bdef
  1055. /PARC{ newpath SaveMatrix currentmatrix pop
  1056. /DoingArc true assign
  1057. false pArc    
  1058. SaveMatrix setmatrix }bdef
  1059. /PWEDGE{newpath SaveMatrix currentmatrix pop
  1060. /DoingWedge true assign
  1061. true pArc closepath
  1062. SaveMatrix setmatrix }bdef
  1063. /modAdj{
  1064. dup 360 gt{360 sub}if
  1065. dup 0 lt{360 add}if}bdef
  1066. /pArc{/Fill local
  1067. /ArcAng local /BegAng local
  1068. pLRAdj /PLR locPoint
  1069. pULAdj /PUL locPoint
  1070. 360 BegAng ArcAng add sub 90 add modAdj /StartAng local
  1071. StartAng ArcAng add /EndAng local
  1072. PLR PUL subPoint 2 divPoint /Rad locPoint
  1073. PUL Rad addPoint translate
  1074. Rad neg scale
  1075. Fill{0 0 moveto}if
  1076. 0 0 1 StartAng EndAng
  1077. dupPoint eq
  1078. {pop pop 0 359 arc closepath}
  1079. {ArcAng 0 lt
  1080. {arcn}{arc}ifelse
  1081. }
  1082. ifelse
  1083. }bdef
  1084. /PBEGPOLY{
  1085. newpath pULAdj moveto
  1086. }bdef
  1087. /PPOLYPOINT {
  1088. pULAdj lineto
  1089. } bdef 
  1090. /PENDPOLY{
  1091. /Closed local
  1092. Closed{closepath}if
  1093. }bdef
  1094. /PBEGRGN{mark}bdef
  1095. /PREGION{PRECT cleartomark}bdef
  1096. /PTXBEG {/PTSave1 save const} bdef
  1097. /PROTATE {
  1098. currentdict /PRotateSave known not
  1099. {save /PRotateSave exch def} if
  1100. 3 1 roll dupPoint neg exch neg exch 5 2 roll 
  1101. translate rotate translate
  1102. } bdef
  1103. /PHFLIP {
  1104. currentdict /PRotateSave known not
  1105. {save /PRotateSave exch def} if
  1106. dupPoint neg exch neg exch 4 2 roll 
  1107. translate -1  1 scale translate
  1108. } bdef
  1109. /PVFLIP {
  1110. currentdict /PRotateSave known not
  1111. {save /PRotateSave exch def} if
  1112. dupPoint neg exch neg exch 4 2 roll 
  1113. translate  1 -1 scale translate 
  1114. } bdef
  1115. /PROTATE_END
  1116. {
  1117. PRotateSave restore
  1118. } bdef
  1119. /PSCALETEXT {
  1120. AD_PointsToUCS mul div /Xscale exch def 
  1121. AD_PointsToUCS mul div /Yscale exch def
  1122. currentfont [ Xscale 0 0 Yscale 0 0 ] makefont setfont
  1123. /AD_fontscaleX AD_fontscaleX Xscale mul def
  1124. /AD_fontscale AD_fontscale Yscale mul def
  1125. } bdef
  1126. /PSTBEG {
  1127. userdict /md known not 
  1128. { userdict begin /md 0 def end } if
  1129. PBLACK /PictPostScript true def
  1130. } bdef
  1131. /PSTEND {
  1132. /PictPostScript false def
  1133. } bdef
  1134. /mayStroke{                
  1135. currentlinewidth 0 gt isHairline or
  1136. {
  1137. gsave
  1138. DoingWedge  {MiterJoin setlinejoin} if 
  1139. currentlinewidth  1 AD_DeviceScale div sub setlinewidth 
  1140. stroke 
  1141. grestore
  1142. } if
  1143. /DoingWedge false assign
  1144. } bdef
  1145. /PFRAME{mayStroke}bdef
  1146. /PPAINT{mayStroke eofill}bdef
  1147. /PERASE{mayStroke eofill}bdef
  1148. /PFILL {mayStroke gsave eofill grestore}bdef
  1149. systemdict /currentpacking known
  1150. {AD_OldPacking setpacking} if
  1151. /AldusDone AldusVersion def            
  1152. end                                                        
  1153.